home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #9 / Commodore_Disk_User_Vol.3_9_1990_-.d64 / gf_screen loader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  502b  |  17 lines
  1. 1 rem initialize "gf/screen loader"
  2. 2 dimsf$(23):ca$="[156]":su=15:bo=4:forz=1to39:z$=z$+" ":next:print"[147]"
  3. 90 :
  4. 95 :rem call "gf/screen loader"
  5. 100 fi$="cr/doodle":gosub10000
  6. 110 getgt$:ifgt$=""then110
  7. 120 gosub11000:goto110
  8. 9990 :
  9. 9995 :rem read/load fi$ (screen file)
  10. 10000 open8,8,8,"0:"+fi$+",s,r":forsf=1to23:input#8,s1$:input#8,s2$
  11. 10005 sf$(sf)=s1$+s2$:next:close8
  12. 10010 :
  13. 10995 rem print screen file
  14. 11000 poke53281,su:poke53280,bo:print"";:zz=0:forz=1to24:printca$z$:zz=zz+40
  15. 11005 poke1023+zz,160:poke55295+zz,bo:next:printca$z$"[145]":poke2023,160
  16. 11010 poke56295,bo:print"";:forsf=1to23:print""sf$(sf):next:return
  17.